3.5.2 Оператор Select Case

Проверка условий в VBA, оператор Select Case

Оператор Select Case идеально подходят для проверки одного и того же значения, которое нужно много раз сравнить с разными выражениями. Синтаксис его очень прост:

Select Case sDayOfWeek

Case "Понедельник"

MsgBox "Салат из шпината"

Case "Вторник"

MsgBox "Салат из морской капусты"

:

Case Else

MsgBox "На этот день у нас ничего не предусмотрено"

End Select

Некоторые замечания по поводу Select Case:

• строка Case "Понедельник" на самом деле означает Case sDayOfWeek = "Понедельник", просто такое равенство подразумевается по умолчанию. Но вам ничего не мешает использовать другой оператор сравнения или целый набор таких операторов:

Case 0 To 5, 15, Is > 55

MsgBox "Напомнить о прививках"

• Слово Is при этом можно пропустить - компилятор VBA добавит это ключевое слово за Вас. Несколько критериев в Case объединяются аналогично операторы OR - то есть выполнение пойдет по этой ветви, если тестируемое значение будет удовлетворять хотя бы одному из критериев. Критерии для сравнения разделяются запятыми.
• при использовании диапазона (0 To 5) включаются и границы диапазона (в данном случае 0 и 5).

Получить этот учебник в формате PDF (Acrobat Reader) или DOC (Microsoft Word)